home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-7.dms / in.adf / envWWW21 / www / arexx / style.ged < prev    next >
Encoding:
Text File  |  1996-01-19  |  2.8 KB  |  147 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Create empty list */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4. arg TYPE
  5.  
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10.  
  11. if (RC ~= 0) then
  12.     exit
  13.  
  14. OPTIONS FAILAT 6                            /* ignore warnings         */
  15.  
  16. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  17.  
  18. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  19.  
  20. 'FIND FIRST QUIET STRING="<BODY"'
  21.  
  22. if (RC = 0) then do
  23.  
  24.     'QUERY LINE VAR=BODYLINE'
  25.  
  26.     if (TYPE = 1) then do
  27.  
  28.         TAG     = "TEXT=#"
  29.         TITLE   = "Text color:"
  30.         DEFAULT = "#000000"
  31.     end
  32.  
  33.     if (TYPE = 2) then do
  34.  
  35.         TAG     = "LINK=#"
  36.         TITLE   = "Color of new links:"
  37.         DEFAULT = "#0000CC"
  38.     end
  39.  
  40.     if (TYPE = 3) then do
  41.  
  42.         TAG     = "BGCOLOR=#"
  43.         TITLE   = "Background color:"
  44.         DEFAULT = "#AAAAAA"
  45.     end
  46.  
  47.     if (TYPE = 4) then do
  48.  
  49.         TAG     = "VLINK=#"
  50.         TITLE   = "Color of visited links:"
  51.         DEFAULT = "#000077"
  52.     end
  53.  
  54.     if (TYPE = 5) then do
  55.  
  56.         TAG     = "ALINK=#"
  57.         TITLE   = "Color of active link:"
  58.         DEFAULT = "#CC0000"
  59.     end
  60.  
  61.     'FIND NEXT QUIET STRING=" ' || TAG || '"'
  62.  
  63.     if (RC = 0) then do
  64.  
  65.         'QUERY LINE'
  66.  
  67.         if (RESULT = BODYLINE) then do
  68.  
  69.             REPLACE = 1
  70.  
  71.             'FIND NEXT STRING="#"'
  72.  
  73.             'QUERY BUFFER VAR=BUFFER'
  74.             'QUERY COLUMN VAR=COLUMN'
  75.  
  76.             DEFAULT = substr(BUFFER, COLUMN, 7)
  77.         end
  78.         else do
  79.  
  80.             'FIND FIRST QUIET STRING="<BODY"'
  81.  
  82.             REPLACE = 0
  83.         end
  84.     end
  85.     else
  86.         REPLACE = 0
  87.  
  88.     'W3COLOR ASK OLD="' || DEFAULT || '" TITLE="' || TITLE || '"'
  89.  
  90.     if (RC = 0) then do
  91.  
  92.         COLOR = RESULT
  93.  
  94.         if (substr(COLOR, 1, 1) = "#") then
  95.  
  96.             COLOR = SUBSTR(COLOR, 2)
  97.  
  98.         if (REPLACE = 1) then do
  99.  
  100.             'QUERY INSERT VAR=INSERT'
  101.  
  102.             'SET INSERT FALSE'
  103.  
  104.             'RIGHT'
  105.  
  106.             'TEXT T="' || COLOR || '"'
  107.  
  108.             'SET INSERT ' || INSERT
  109.         end
  110.         else do
  111.  
  112.             'GOTO STEP 5'
  113.  
  114.             'TEXT T=" ' || TAG || COLOR || '"'
  115.         end
  116.     end
  117. end
  118. else do
  119.  
  120.     'REQUEST BODY="Body tag not found - can not add color|information.||Please create a HTML frame first. Run the|Document Wizard if you need assistance." BUTTON="!WIZARD|_Cancel"'
  121.  
  122.     if (RESULT=1) then do
  123.  
  124.         'UNLOCK'
  125.  
  126.         address 'AREXX'
  127.  
  128.         'golded:tools/www/arexx/document.ged'
  129.  
  130.         exit
  131.     end
  132. end
  133.  
  134. /* ---------------------------- END OF YOUR CODE --------------------- */
  135.  
  136. 'UNLOCK' /* VERY important: unlock GUI */
  137.  
  138. exit
  139.  
  140. SYNTAX:
  141.  
  142. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  143.  
  144. 'UNLOCK'
  145.  
  146. exit
  147.